home *** CD-ROM | disk | FTP | other *** search
/ Swagman - Digital Press Kit (Europe) / Swagman - Digital Press Kit (Europe).bin / pc / swagman.dir / 00175.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  490 b   |  17 lines

  1. on maccopypress
  2.   openXLib(":Xtras:macxtra:filecopy")
  3.   set fileName to the pathName & "presstxt:" & the name of cast the mouseCast
  4.   if fileName > EMPTY then
  5.     put fileName
  6.     set loc to "desktop folder:"
  7.     set wFileName to doSaveAsDlg(loc & the name of cast the mouseCast, "word files@*.rtf")
  8.     if wFileName > EMPTY then
  9.       put wFileName
  10.       set result to copyFile(wFileName, fileName)
  11.       put result
  12.     end if
  13.   end if
  14.   closeXLib(":Xtras:macxtra:filecopy")
  15.   abort()
  16. end
  17.